home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / SETUP / US / CBUILDER / DATA.Z / FORMS.HPP < prev    next >
C/C++ Source or Header  |  1997-02-13  |  36KB  |  826 lines
  1. //----------------------------------------------------------------------------
  2. // Forms.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: Forms.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef FormsHPP
  6. #define FormsHPP
  7. //----------------------------------------------------------------------------
  8. #include <Controls.hpp>
  9. #include <Menus.hpp>
  10. #include <Graphics.hpp>
  11. #include <Classes.hpp>
  12. #include <SysUtils.hpp>
  13. #include <Windows.hpp>
  14. #include <Messages.hpp>
  15. #include <System.hpp>
  16. #pragma warn -par
  17. #pragma warn -hid 
  18. #pragma warn -inl
  19.  
  20. namespace Forms
  21. {
  22. //-- type declarations -------------------------------------------------------
  23. enum TScrollBarKind { sbHorizontal, sbVertical };
  24.  
  25. typedef Word TScrollBarInc;
  26.  
  27. class __declspec(delphiclass) TControlScrollBar;
  28. class __declspec(delphiclass) TScrollingWinControl;
  29. class __declspec(pascalimplementation) TScrollingWinControl : public Controls::TWinControl
  30. {
  31.     typedef Controls::TWinControl inherited;
  32.     
  33. private:
  34.     TControlScrollBar* FHorzScrollBar;
  35.     TControlScrollBar* FVertScrollBar;
  36.     bool FAutoScroll;
  37.     bool FSizing;
  38.     bool FUpdatingScrollBars;
  39.     Byte FReserved;
  40.     void __fastcall CalcAutoRange(void);
  41.     void __fastcall ScaleScrollBars(int M, int D);
  42.     void __fastcall SetAutoScroll(bool Value);
  43.     void __fastcall SetHorzScrollBar(TControlScrollBar* Value);
  44.     void __fastcall SetVertScrollBar(TControlScrollBar* Value);
  45.     void __fastcall UpdateScrollBars(void);
  46.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  47.     HIDESBASE MESSAGE void __fastcall WMHScroll(Messages::TWMScroll &Message);
  48.     HIDESBASE MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &Message);
  49.     
  50. protected:
  51.     void __fastcall AutoScrollInView(Controls::TControl* AControl);
  52.     virtual void __fastcall ChangeScale(int M, int D);
  53.     virtual void __fastcall CreateWnd(void);
  54.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &ARect);
  55.     __property bool AutoScroll = {read=FAutoScroll, write=SetAutoScroll, default=1};
  56.     
  57. public:
  58.     __fastcall virtual TScrollingWinControl(Classes::TComponent* AOwner);
  59.     __fastcall virtual ~TScrollingWinControl(void);
  60.     void __fastcall ScrollInView(Controls::TControl* AControl);
  61.     
  62. __published:
  63.     __property TControlScrollBar* HorzScrollBar = {read=FHorzScrollBar, write=SetHorzScrollBar, nodefault
  64.         };
  65.     __property TControlScrollBar* VertScrollBar = {read=FVertScrollBar, write=SetVertScrollBar, nodefault
  66.         };
  67. public:
  68.     /* TWinControl.CreateParented */ __fastcall TScrollingWinControl(HWND ParentWindow) : Controls::TWinControl(
  69.         ParentWindow) { }
  70.     
  71. };
  72.  
  73. class __declspec(pascalimplementation) TControlScrollBar : public Classes::TPersistent
  74. {
  75.     typedef Classes::TPersistent inherited;
  76.     
  77. private:
  78.     TScrollingWinControl* FControl;
  79.     TScrollBarInc FIncrement;
  80.     int FPosition;
  81.     int FRange;
  82.     int FCalcRange;
  83.     TScrollBarKind FKind;
  84.     Word FMargin;
  85.     bool FVisible;
  86.     bool FTracking;
  87.     bool FScaled;
  88.     __fastcall TControlScrollBar(TScrollingWinControl* AControl, TScrollBarKind AKind);
  89.     void __fastcall CalcAutoRange(void);
  90.     int __fastcall ControlSize(bool ControlSB, bool AssumeSB);
  91.     void __fastcall DoSetRange(int Value);
  92.     int __fastcall GetScrollPos(void);
  93.     bool __fastcall NeedsScrollBarVisible(void);
  94.     void __fastcall ScrollMessage(Messages::TWMScroll &Msg);
  95.     void __fastcall SetPosition(int Value);
  96.     void __fastcall SetRange(int Value);
  97.     void __fastcall SetVisible(bool Value);
  98.     bool __fastcall IsRangeStored(void);
  99.     void __fastcall Update(bool ControlSB, bool AssumeSB);
  100.     
  101. public:
  102.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  103.     __property TScrollBarKind Kind = {read=FKind, nodefault};
  104.     __property int ScrollPos = {read=GetScrollPos, nodefault};
  105.     
  106. __published:
  107.     __property Word Margin = {read=FMargin, write=FMargin, default=0};
  108.     __property TScrollBarInc Increment = {read=FIncrement, write=FIncrement, default=8};
  109.     __property int Range = {read=FRange, write=SetRange, stored=IsRangeStored, default=0};
  110.     __property int Position = {read=FPosition, write=SetPosition, default=0};
  111.     __property bool Tracking = {read=FTracking, write=FTracking, default=0};
  112.     __property bool Visible = {read=FVisible, write=SetVisible, default=1};
  113. public:
  114.     /* TObject.Create */ __fastcall TControlScrollBar(void) : Classes::TPersistent() { }
  115.     /* TObject.Destroy */ __fastcall virtual ~TControlScrollBar(void) { }
  116.     
  117. };
  118.  
  119. enum TFormBorderStyle { bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin };
  120.  
  121. typedef TFormBorderStyle TBorderStyle;
  122.  
  123. class __declspec(delphiclass) TScrollBox;
  124. class __declspec(pascalimplementation) TScrollBox : public TScrollingWinControl
  125. {
  126.     typedef TScrollingWinControl inherited;
  127.     
  128. private:
  129.     TFormBorderStyle FBorderStyle;
  130.     Byte FReserved;
  131.     Classes::TNotifyEvent FOnResize;
  132.     void __fastcall SetBorderStyle(TBorderStyle Value);
  133.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  134.     HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TMessage &Message);
  135.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  136.     
  137. protected:
  138.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  139.     virtual void __fastcall Resize(void);
  140.     
  141. public:
  142.     __fastcall virtual TScrollBox(Classes::TComponent* AOwner);
  143.     
  144. __published:
  145.     __property Align ;
  146.     __property AutoScroll ;
  147.     __property TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  148.     __property DragCursor ;
  149.     __property DragMode ;
  150.     __property Enabled ;
  151.     __property Color ;
  152.     __property Ctl3D ;
  153.     __property Font ;
  154.     __property ParentColor ;
  155.     __property ParentCtl3D ;
  156.     __property ParentFont ;
  157.     __property ParentShowHint ;
  158.     __property PopupMenu ;
  159.     __property ShowHint ;
  160.     __property TabOrder ;
  161.     __property TabStop ;
  162.     __property Visible ;
  163.     __property OnClick ;
  164.     __property OnDblClick ;
  165.     __property OnDragDrop ;
  166.     __property OnDragOver ;
  167.     __property OnEndDrag ;
  168.     __property OnEnter ;
  169.     __property OnExit ;
  170.     __property OnMouseDown ;
  171.     __property OnMouseMove ;
  172.     __property OnMouseUp ;
  173.     __property Classes::TNotifyEvent OnResize = {read=FOnResize, write=FOnResize};
  174. public:
  175.     /* TScrollingWinControl.Destroy */ __fastcall virtual ~TScrollBox(void) { }
  176.     
  177. public:
  178.     /* TWinControl.CreateParented */ __fastcall TScrollBox(HWND ParentWindow) : Forms::TScrollingWinControl(
  179.         ParentWindow) { }
  180.     
  181. };
  182.  
  183. class __declspec(delphiclass) TDesigner;
  184. class __declspec(delphiclass) TForm;
  185. enum TBorderIcon { biSystemMenu, biMinimize, biMaximize, biHelp };
  186.  
  187. typedef Set<TBorderIcon, biSystemMenu, biHelp>  TBorderIcons;
  188.  
  189. enum TWindowState { wsNormal, wsMinimized, wsMaximized };
  190.  
  191. enum TShowAction { saIgnore, saRestore, saMinimize, saMaximize };
  192.  
  193. enum TFormStyle { fsNormal, fsMDIChild, fsMDIForm, fsStayOnTop };
  194.  
  195. enum TPosition { poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter };
  196.  
  197. enum TTileMode { tbHorizontal, tbVertical };
  198.  
  199. enum Forms_6 { fsCreating, fsVisible, fsShowing, fsModal, fsCreatedMDIChild };
  200.  
  201. typedef Set<Forms_6, fsCreating, fsCreatedMDIChild>  TFormState;
  202.  
  203. enum TPrintScale { poNone, poProportional, poPrintToFit };
  204.  
  205. typedef int TModalResult;
  206.  
  207. class __declspec(delphiclass) TOleFormObject;
  208. class __declspec(pascalimplementation) TOleFormObject : public System::TObject
  209. {
  210.     typedef System::TObject inherited;
  211.     
  212. protected:
  213.     virtual void __fastcall OnDestroy(void) = 0;
  214.     virtual void __fastcall OnResize(void) = 0;
  215. public:
  216.     /* TObject.Create */ __fastcall TOleFormObject(void) : System::TObject() { }
  217.     /* TObject.Destroy */ __fastcall virtual ~TOleFormObject(void) { }
  218.     
  219. };
  220.  
  221. enum TCloseAction { caNone, caHide, caFree, caMinimize };
  222.  
  223. typedef void __fastcall (__closure *TCloseEvent)(System::TObject* Sender, TCloseAction &Action);
  224.  
  225. typedef void __fastcall (__closure *TCloseQueryEvent)(System::TObject* Sender, bool &CanClose);
  226.  
  227. class __declspec(pascalimplementation) TForm : public TScrollingWinControl
  228. {
  229.     typedef TScrollingWinControl inherited;
  230.     
  231. private:
  232.     Controls::TWinControl* FActiveControl;
  233.     Controls::TWinControl* FFocusedControl;
  234.     TBorderIcons FBorderIcons